home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / includes.arc / GETCUR.RPG next >
Encoding:
Text File  |  1991-12-04  |  579 b   |  13 lines
  1.       *  Read the cursor position as of when <enter> was pressed.
  2.       *  Read and translate the curor's row.
  3.       *  (Translate 1-byte binary form to decimal form.)
  4.      C                     Z-ADD0         ZROW
  5.      C                     MOVE XROW      YROW
  6.      C                     Z-ADDZROW      ROW
  7.       /SPACE
  8.       *  Read and translate the curor's column.
  9.       *  (Translate 1-byte binary form to decimal form.)
  10.      C                     Z-ADD0         ZCOL
  11.      C                     MOVE XCOL      YCOL
  12.      C                     Z-ADDZCOL      COL
  13.